#!usr/lib/perl
use warnings;
use 5.014;
use utf8;

my %efterNavn = (
fledelius => 'Anne',
bernal => 'Maite',
rojas => 'Sergio',
lopez => 'Marco'
);

my $tjek = 1;

while($tjek){
	say "type a last name or 0 to end";
	chomp (my $var = <STDIN>);
	if($var eq 0){
		$tjek = 0;
		}
	else{
		say "${var}'s name is: $efterNavn{$var}";
		}
	}